home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tm.d64 / scenario.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  142 lines
  1. 10 REM *** NEW TPUG MAILING ADDRESS ***
  2. 20 REM  TORONTO PET USERS GROUP INC.
  3. 30 REM  101 DUNCAN MILLS RD. SUITE G7
  4. 40 REM  TORONTO, ONTARIO, CANADA.
  5. 50 REM         M3B 1Z3
  6. 60 REM PHONE NUMBER: (416) 445-4524
  7. 70 REM
  8. 80 REM PLEASE COPY ME, I'M A PUBLIC
  9. 90 REM DOMAIN PROGRAM!
  10. 100 REM * NOT TO BE SOLD FOR PROFIT *
  11. 103 REM *****************************
  12. 105 REM ********** SCENARIO *********
  13. 107 REM *****************************
  14. 110 PRINT"[147]"
  15. 120 TW=39:NS=23:NO=22:NM=16:NA=21:NC=15:NR=24:NE=12
  16. 130 DIM S$(NS),O$(NO),M$(NM),A$(NA),C$(NC),R$(NR),E$(NE)
  17. 140 FOR I=1 TO NS:READ S$(I):NEXT I
  18. 150 DATA INTELLIGENT ANTS,BRAIN EATERS,KING KONG AND DWAN,LITTLE GREEN MEN
  19. 160 DATA THE ABOMINABLE SNOWMEN,SHORT PEOPLE,COUNT DRACULA AND SON
  20. 170 DATA CREEPY TELEPATHIC MUTANTS,LIVING GARGOYLES,HORRID GIANT SPIDERS
  21. 180 DATA A BAND OF MOTORCYCLE PIRATES,THE ENERGY ABSORBING SLIME PEOPLE
  22. 190 DATA THE WALKING DEAD,COMMIE SYMPATHIZERS,HORRIBLE ANDROIDS
  23. 200 DATA RUSTY ROBOTS WITH LASER EYES,THE LOCH NESS MONSTER AND GIRL FRIEND
  24. 210 DATA GIANT WOMBATS,BERZERK MIT FRESHMEN,A BUNCH OF DISSIDENT SCHOLARS
  25. 220 DATA POLITICAL HACKS,SMELLY LITTLE VERMIN,CHICAGO POLICE
  26. 230 FOR I=1 TO NO:READ O$(I):NEXT I
  27. 240 DATA MUTATED FROM THE SLIME PEOPLE,FROM TRANSYLVANIA,FROM THE BLACK LAGOON
  28. 250 DATA FROM 20000 LEAGUES BENEATH THE SEA,CREATED BY A MAD SCIENTIST
  29. 260 DATA FROM MARS,(THE UNAPPETIZING RESULT OF DNA RESEARCH)
  30. 270 DATA FROM GALAXY GAC X71-28 (AND BEYOND THE BEYOND)
  31. 280 DATA AFFILIATED WITH THE KLINGON EMPIRE,FROM 1984
  32. 290 DATA FROM A GOVERNMENT THINK TANK,FROM THE SUBURBS
  33. 300 DATA FROM ACROSS THE RIVER,ESCAPED FROM PRISON,FROM AN INSANE ASYLUM
  34. 310 DATA WAKING FROM A SLEEP OF CENTURIES,FORMED OF MISSHAPEN PARTS
  35. 320 DATA REEKING OF WHISKY,WILD-EYED AND STAGGERING,FULL OF MISCHIEF
  36. 330 DATA ARRIVING IN FLYING SAUCERS,OF NO WOMAN BORN
  37. 340 FOR I=1 TO NM:READ M$(I):NEXT I
  38. 350 DATA DRIVEN CRAZY BY POT AND CHEAP BEER,AFTER OUR WOMEN,LOOKING FOR THRILLS
  39. 360 DATA INTENDING TO CONQUER THE UNIVERSE,WHO ARE HUNGRY FOR LOVE
  40. 370 DATA WHO ARE GOLD SPECULATORS,SEEKING CHEAP GASOLINE,ON THEIR SPRING FLING
  41. 380 DATA HOPING TO GET OUT OF A BAD MARRIAGE,SEEKING ENLIGHTENMENT
  42. 390 DATA BENT ON WORLD DOMINATION,FOR THEIR PART 2 FIELD STUDY
  43. 400 DATA "DRIVEN BY HIGH NACH",CLAIMING THE RIGHT TO A HOMELAND
  44. 410 DATA UNDER THE INFLUENCE OF PSYCHOTIC DELUSIONS,MAKING A COMEBACK
  45. 420 FOR I=1 TO NA:READ A$(I):NEXT I
  46. 430 DATA HIJACK A PLANE TO UGANDA,LAY WASTE KANSAS CITY,LECTURE THE UN FOR HOURS
  47. 440 DATA CAUSE PANIC IN BOSTON GARDEN,INITIATE A RENT STRIKE IN SOMERVILLE
  48. 450 DATA "ARRIVE IN OMAHA, PARALYZING PEOPLE WITH HYPNOTIC GAS"
  49. 460 DATA INVADE CAMBODIA,STEAL AN H-BOMB,ROB FORT KNOX,INCITE A RIOT AT BU
  50. 470 DATA APPEAR IN CHICAGO ARMED TO THE HILT,VAPORIZE THE JOHN HANCOCK TOWER
  51. 480 DATA CAUSE A DISTUBANCE ON DAYTONA BEACH,SET FIRE TO THE MAINE WOODS
  52. 490 DATA INFILTRATE RICE KRISPIES INTO SKYLAB,BREAK THE BANK AT LOS VEGAS
  53. 500 DATA BECOME LAWYERS AND SUE THE UN FOR TREBLE DAMAGES
  54. 510 DATA LEVITATE THE PENTAGON,CHEAT ON THEIR TAXES
  55. 520 DATA ATTEMPT TO CORNER SAND.  (THEY ARE A SILICON BASED LIFE FORM)
  56. 530 DATA KIDNAP BILLY CARTER AND THREATEN TO BLOW UP GOVERNMENT BUILDINGS
  57. 540 FOR I=1 TO NC:READ C$(I):NEXT I
  58. 550 DATA POPE PAUL PLEADS FOR PEACE AND UNDERSTANDING
  59. 560 DATA PROFESSOR VAN MAANEN CALLS FOR ADDITIONAL RESEARCH,IT BEGINS TO SNOW
  60. 570 DATA MEAT PRICES IMMEDIATELY JUMP 15%,THE STOCK MARKET COLLAPSES
  61. 580 DATA HARRY REASONER CALLS IT 'REPREHENSIBLE'
  62. 590 DATA GENERAL ROCK LABELS THE INVASION A COMMUNIST CONSPIRICY
  63. 600 DATA JUDGE GARRITY ISSUES AN INJUNCTION
  64. 610 DATA THE BOSTON GLOBE SENDS A SPOTLIGHT TEAM TO INVESTIGATE
  65. 620 DATA DUKAKIS DECLARES A STATE OF EMERGENCY,THE ITALIAN GOVERNMENT COLLAPSES
  66. 630 DATA PRESIDENT CARTER APPOINTS AN ADVISORY COMMITEE,BILLY GRAHAM PRAYS.
  67. 640 DATA"KISS SAYS 'THEY'RE REALLY[157][157][157][157][157][157][163][163][163][163][163][163] [145]PUNK!'"
  68. 650 DATA THE DOLLAR SUFFERS A STEEP DECLINE ON EUROPEAN MONEY MARKETS
  69. 660 FOR I=1 TO NR:READ R$(I):NEXT I
  70. 670 DATA HOWEVER- THEY PROVE OPEN TO NEGOTIATION AND ARE PERSUADED TO QUIT
  71. 680 DATA THE BUFFALO SABERS HIRE THEM AS 'INTIMIDATORS'
  72. 690 DATA THE INVADERS FALL IN LOVE WITH MULTICS AND BECOME PEACEFUL PROGRAMMERS
  73. 700 DATA THEY WALK INTO THE WRONG NEIGHBORHOOD AND ARE MUGGED
  74. 710 DATA A COURAGOUS GROUP OF WOMEN REPELS THEM
  75. 720 DATA THE CANADIAN MOUNTIES PLACE THEM UNDER ARREST
  76. 730 DATA LUCKILY- THEY CATCH SWINE FLU AND DIE
  77. 740 DATA THEY ARE GRANTED AN NHL FRANCHISE AND WIN THE STANLEY CUP
  78. 750 DATA AIR POLLUTION SPOILS THEIR VISIT AND THEY GO HOME
  79. 760 DATA RON ZEIGLER LABELS THE INVADERS 'INOPERATIVE' AND THEY FADE AWAY
  80. 770 DATA THEY MOVE TO HOLLYWOOD AND LIVE HAPPILY EVER AFTER
  81. 780 DATA NASA BLOWS THEM UP WITH A LEFTOVER APOLLO 13
  82. 790 DATA THE SENATE FINDS THEM GUILTY OF HIGH CRIMES AND IMPEACHES THEM
  83. 800 DATA THE INVADERS DISCOVER MARIJUANA AND BECOME HARMLESS ADDICTS
  84. 810 DATA THEY WIN THE LOTTERY AND GO ON A MATERIALIST BINGE
  85. 820 DATATHEY BECOME BORED AND QUIT.
  86. 830 DATA THEY ARE SUBDUED BY A BRAVE CONTINGENT OF PROFESSIONAL WRESTLERS
  87. 840 DATA THE BOMB IN THE BASEMENT FAILS TO IGNITE; CLASSES RESUME AS USUAL
  88. 850 DATA THE ARMY DESTROYS THEM WITH CRUISE MISSLES
  89. 860 DATA THEY GO TO A SCIENTOLOGY MEETING AND SEE THE ERROR OF THEIR WAYS
  90. 870 DATA THEY VISIT DISNEYLAND AND DIE LAUGHING
  91. 880 DATA THE EFFORT PROVES TOO GREAT.  THEY FAIL AND OPT FOR EARLY RETIREMENT
  92. 890 DATA THEY PROVE VULNERABLE TO SOPHIST ARGUMENTS
  93. 900 DATA THEY ARE PLACED ON ACADEMIC PROBATION
  94. 910 FOR I=1 TO NE:READ E$(I):NEXT I
  95. 920 DATA AS IT WAS IN THE BEGINNING; IS NOW; AND EVER SHALL BE - WORLD ENDS
  96. 930 DATA THE SUN GOES NOVA,THE UNIVERSE COLLAPSES,TIME STOPS
  97. 940 DATA A NEW ICE AGE - GLACIERS COVER THE EARTH
  98. 950 DATA A GIANT METEOR STRIKES THE EARTH,ENTROPY REACHES MAXIMUM - HEAT DEATH
  99. 960 DATA DEEP IN SIBERIA A CORPORAL'S FINGER SLIPS ON THE BUTTON - BOOM!
  100. 970 DATA EARTH ENTERS A REGION OF SPACE WHERE THOUGHT BECOMES %$*&..(null)...
  101. 980 DATA THE EARTH FALLS INTO A BLACK HOLE (DIDN'T SEE IT COMING...)
  102. 990 DATA"GOD[146] SAYS 'LET THERE BE DARK'"
  103. 1000 DATA THE DREAMER AWAKENS AS A BUTTERFLY
  104. 1010 S1=INT(NS*RND(1))+1:O1=INT(NO*RND(1))+1
  105. 1020 M1=INT(NM*RND(1))+1:A1=INT(NA*RND(1))+1
  106. 1030 X$=S$(S1)+" "+O$(O1)+", "+M$(M1)+", "+A$(A1)+"."
  107. 1040 PRINT"":POKE 59468,14
  108. 1050 FOR I=1 TO 4000:NEXTI
  109. 1060 GOSUB 1280
  110. 1070 IF RND(1)>.4 THEN 1110
  111. 1080 PRINT
  112. 1090 X$=C$(NC*RND(1)+1)+"."
  113. 1100 GOSUB 1280
  114. 1110 PRINT
  115. 1120 X$=R$(NR*RND(1)+1)+"."
  116. 1130 GOSUB 1280
  117. 1140 POKE 59468,12
  118. 1150 IF RND(1)>.2 THEN 1010
  119. 1160 PRINT
  120. 1170 X$=E$(NE*RND(1)+1)+"!  THE END."
  121. 1180 GOSUB 1280
  122. 1190 IF XX=987 THEN 1010
  123. 1200 IF RND(1)>.2 THEN 1220
  124. 1210 PRINT"IT'S ALWAYS THE UNKNOWN UNKNOWNS THAT":PRINT"RUIN FORECASTS!!":END
  125. 1220 PRINT "DO YOU WANT TO SEE MORE SCENARIOS?";
  126. 1230 IF XX=987 THEN GOTO 1010
  127. 1240 GETA$:IF A$="" THEN 1240
  128. 1250 IF A$="X" THEN XX=987: GOTO1010
  129. 1260 IF A$="Y" THEN PRINT"YES":GOTO 1010
  130. 1270 END
  131. 1280 REM BREAK SRING X$ INTO TERMINAL LINES
  132. 1290 X$=X$+" "
  133. 1300 I1=1
  134. 1310 I2=I1+TW:IF I2<=LEN(X$) THEN 1330
  135. 1320 PRINTMID$(X$,I1,LEN(X$)-I1):RETURN
  136. 1330 J=I2
  137. 1340 J=J-1
  138. 1350 IF MID$(X$,J,1)=" " THEN 1370
  139. 1360 GOTO 1340
  140. 1370 PRINT MID$(X$,I1,J-I1+1)
  141. 1380 I1=J+1:GOTO 1310
  142.